home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 145 / 145.d81 / b.disc d (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  43 lines
  1. 62000 dv=peek(186):ifdv<8thendv=8
  2. 62010 print"[147]":poke53280,0:poke53281,0:poke211,0:poke214,08:sys58732
  3. 62020 a$="[219][219][219][219][219][219][219]"
  4. 62030 p$="[199] [198] [216][160]  [218] [207][160][206] [197]":au$="by [216]mike[216]":f$="gfx-zone"
  5. 62040 print"[176][178][178][178][178][178][178][178][155][178][178][178][178][178][178][178][152][178][178][178][178][178][178][178][178][151][178][178][178][178][178][178][178][178][152][178][178][178][178][178][178][174]
  6. 62050 [153]"-(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"<
  7. 62060 print"[171][219][219][219][219][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][179]
  8. 62070 [153]"-(NULL)(NULL)(NULL)(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)<
  9. 62080 print"[171][219][219][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][219][179]
  10. 62090 [153]"-(NULL)(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)(NULL)(NULL)<
  11. 62100 print"[171][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][219][219][219][179]
  12. 62110 [153]"-list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)(NULL)(NULL)(NULL)(NULL)<
  13. 62120 print"[155][171][219][219][219][219][219][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][219][219][219][219][219][179]
  14. 62130 [153]"list-(NULL)(NULL)(NULL)(NULL)(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"<
  15. 62140 print"[155][171][219][219][219][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[219][179]
  16. 62150 [153]"list-(NULL)(NULL)(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"(NULL)(NULL)<
  17. 62160 print"[155][171][219][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[219][219][219][179]
  18. 62170 [153]"list-(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"(NULL)(NULL)(NULL)(NULL)<
  19. 62180 print"[152][171]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[219][219][219][219][219][179]"
  20. 62190 print"[152][171]"a$"[151]"a$"[219][152]"a$"[219][155]"a$"[219][219][219][219][219][219][179]"
  21. 62200 print"[155][173][177][177][177][177][177][177][151][177][177][177][177][177][177][177][177][152][177][177][177][177][177][177][177][177][155][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"
  22. 62210 poke211,0:poke214,10:sys58732:x=2:gosub62230:gosub62280
  23. 62220 poke211,0:poke214,15:sys58732:x=5:gosub62230:goto62300
  24. 62230 gosub62260:print"[171][219][219][177][177][177][155][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][155]
  25. 62240 [129]i[178]1[164]x:[141]62260:[153]"-(NULL)<open                                waitpoke-":[130]
  26. 62250 [141]62260:[153]"-(NULL)(NULL)poke================================(NULL)":[142]
  27. 62260 [151]646,1:[139]x[177]2[167][151]646,15
  28. 62270 [142]
  29. 62280 [151]214,11:[151]211,20[171][195](p$)[173]2:[158]58732:[153]"open"p$
  30. 62290 [153][166]20[171][195](au$)[173]2)""au$:[142]
  31. 62300 [151]214,15:[151]211,0:[158]58732:
  32. 62310 [153]"open((NULL)str$)1995 by (NULL)(NULL)ike(NULL)
  33. 62340 print"[159]
  34. 62350 [153]"open                                "
  35. 62360 [129]i[178]dv[164]dv:[160]2:[159]2,i,2:[160]2:[139]st[167]62380
  36. 62370 [160]15:[159]15,i,15,"r0:"[170]f$[170]"="[170]f$:[132]15,er:[160]15:[139]er[178]63[167]62390
  37. 62380 [130]:[153]""f$" not found!":[151]186,8:[128]
  38. 62390 q$[178][199](34):[151]646,[194](53281):[153]"";
  39. 62400 [153]"p(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$f$q$","i
  40. 62410 [153]"p(NULL)53272,20:r(NULL):";
  41. 62412 [151]631,13:[151]632,145:[151]633,145:[151]634,145
  42. 62420 [151]635,145:[151]636,13:[151]198,6
  43.